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MODULE FORSENDFILE ¢ 
IDENT = "1-006! 


BEGIN 


1 
LPR REA AARAERRERERRARAAAAAEAEEEEAEEAEEEEAAEAEAEAAAAAAAAEAAAEEAAAEEAEAAERE EEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE rey MAY BE USED AND COP 


F D 
'* ONLY ve ee on THE TERMS OF SUC 


IE 
LICENSE AND WITH THE 
T A T 


® 

® 

*® 

*® 

® 

® 

® 

® 

2 ® 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. : 
! cs 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

® 

* 

® 

® 

*® 

* 


!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


i DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR _ RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH | 


I 
H IS NOT SUPPLIED BY DIGITAL. 


LR RRR RARER AERA REAR A EAE 
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a 9 Ss SS FH HS SS SS SS SF SS SD SH 3) 3 5 4) Ss Ss 4) —) > 4 3 42 FH 21 DOO 
= ' 
Be 


6 ++ | 
} FACILITY: FORTRAN Support Library 
0 | ABSTRACT: | 
0 i Contains routine FORSENDFILE for support of FORTRAN endfile 
8 statement. 
Z +4 ENVIRONMENT: User Mode - AST re-entrant 
1 0041 i AUTHOR: Jonathan M. Taylor, CREATION DATE: 24-Oct-1977 | 
43 004 i MODIFIED BY: | 
44 0044 : 
45 0045 ! (Previous edit history deleted. SBi 15-July-1981) 
46 0046 ! 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
47 0047 ! 1-002 - Change REQUIRE file names from FOR... to OTS... JBS O7-DEC-78 
48 004 ! 1-003 = Change OTSOPN back to FOROPN, and change the prefix on LUN 
49 0049 : parameters from OPEN to LUB. JBS 15-DEC-7 
50 0050 ! 1-004 - Implement ERR= and iOSTAT=. SBL car 
51 0051 ! 1-005 - Correct module name. SBL 15-July-19 ; 
52 0052 ! 1-006 - Move ACTUALCOUNT declaration inside routine. Add SWITCHES 
a O27 } declaration. SBL 16-Jun-1982 


kK 3 
FORSENDF ILE 16-Sep-1 9:25 AX-11 Bliss-32 V4.0-7 Page 
1-006 1enee= ihe P3:33:8} = HeSaRre saeironenoe se eS2:1 ’ 
; 903? ye 
;. 7 8 § 1 ! SWITCHES: 
; 2 057 1! 
; & 0058 1 
: 9 R828 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 6¢ 0061 1! 
; 6 O06¢ 1 ! LINKAGES: 
; 664 0065 1! 
,; 63 0064 1 REQUIRE 'RTLIN:OTSLNK’; ! define all Linkages 
; & 0493 1 
; 67 0494 1! 
; 0495 1 ! TABLE OF CONTENTS: 
; 69 0496 1! 
; 0497 1 
5 71 0498 1 FORWARD ROUTINE 
i ¢£ 0499 1 FORSENDF ILE; 
WB, 0500 1 
- 0501 1! 
;. Fa4 1 ! INCLUDE FILES: 
ee 0503 1! 
: 77 0504 1 REQUIRE ‘RTLML:FORERR'; ! FORTRAN ree number definitions 
2) a 0572 1 REQUIRE ‘RTLIN: ‘. ' Define ma 
5 79 0766 1 REQUIRE 'RTLIN:RTLPSECT’; ' Define DECLARE -PSECTS macro 
; # 0861 1 LIBRARY ‘RTLST ' STARLET Library for symbols and macros 
; BF 0862 1 REQUIRE 'RTLIN:FOROPN'; ! FORTRAN OPEN parameters 
s 82 1125 1 REQUIRE "RTLML:FORPAR'; ! inter-module constants 
; 83 1148 1 REQUIRE ‘RTLML:OTSLUB'; ' LUB offset definitions 
3 Be lege ' REQUIRE *RTLML:OTSISB'; ' to get ISB length only 
; «686 1499 1 ! MACROS: 
e- oF 1458 1! NONE 
; 8 1459 1 
; =«6«889 1460 1! 
:; 8690 1461 1 ! EQUATED SYMBOLS: 
ee 4 1462 1! NONE 
; Fe 1463 1 
; 9 1464 1! 
: 694 1465 1 ! PSECT DECLARATIONS: 
; 1466 1! 
; © 1467 1 
2) ae 1468 1 DECLARE_PSECTS (FOR); ' declare PSECTs for FORS facility 
; 1469 1 
: 99 1470 1! 
; 100 1471 1 =! OWN STORAGE: 
: 101 1o%6 : 2. NONE 
3; 102 1473 (1 
: 103 1474 1! 
: 104 1475 1 ! EXTERNAL REFERENCES: 
: 105 1476 1! 
: 106 1477 1 
: 107 1478 1 EXTERNAL ROUTINE 
: 108 1479 1 FORSSIOSTA ' error handler 
; 109 1480 1 FORSSCB SPUSRS ie CB_PUSH NOVALUE, Get a LUB/ISB/RAB 
: 110 1481 1 FORS$$CB-POP: JSB_CB if P NOVALUE, i ieture the 1/0 system 
: (111 qe 1 FORS$$SIGNAL stoe” NOVALUE : convert error number and signal_stop 
. 22 1483 1 FORSSOPEN_DEFLT: CALL mia} NOVALUE; ' default OPEN routine 


FORSENDF ILE bese -Sep-1984 0 +17: 2:67 AX-11 Bliss-32 “4.0-74 Page 3) 

1-006 14-Sep-1984 1 FORRTL.SRCJF ORENDF IL. B32;1 (3). 

; ie tf } GLOBAL ROUTINE FORSENDFILE ( ! FORTRAN ENDFILE statement support : 
: 116 1486 1 ERR_EQL) | ; 
s 64 1487 1 = ‘ 
; 118 1488 1 !++ ‘ 
; 133 tt ’ FUNCTIONAL DESCRIPTION: : 
3 Yel 1491 1! Perform FORTRAN ene’ bube semantics. Check file and record type ; 
3 \s¢ 1336 1 | for legality cf the ENDFILE. ‘ 
s te 1493 1! Open the file if not already open and set flag to finish defaults later. ‘ 
> 124 1494 1! Write a one byte “2 record. ° 
; 1$? 1495 1: : 
> 126 1496 1 | FORMAL PARAMETERS: ° 
, Yer 1497 1! : 
> 128 1498 1! UNIT. rlu.v Logical unit number | : 
; 144 1499 1! ERR_EQL.rl.v If 0 or omitted, all errors are signalled. : 
; 130 1500 1! If non-zero, errors unwind to caller. ‘ 
3 «W351 1501 1! : 
: tae 1286 1! IMPLICIT INPUTS: ‘ 
; ta 1503 1! “ 
; 1% 1504 1: LUB$V_NOTSEQORG 1 if ORGANIZATION is not ‘SEQUENTIAL' ; 
3 (499 1505 1! LUB$V_DIRECT 1 if ACCESS = ape ECT’ or define file done : 
; 1s 1506 1 | LUBSV_F IXED 1 if fixed length records specified in open ; 
: 137 1507 1: LUBS$V~UNF ORMAT 1 if FORMAT = "UNFORMATTED' or define | : 
; ie 1508 1! file done : 
; «139 1509 1! LUBSV_SEGMENTED 1 if SEGMENTED aecenet rs in OPEN statement | : 
3 140 1510 1! or defaulted that way ‘ 
3 ye 1213 ie : LUB$V_OPENED 1 if file already open on this unit : 
° | o 
3: 143 1513 1! IMPLICIT OUTPUTS: : 
> 144 1514 1! ; : : 
: 145 1515 1} LUB$L_LOG_RECNO Incremented if “2 record written | : 
: 146 15i6 1! : 
> 147 1517 1! ROUTINE VALUE: ‘ 
; 148 1518 1! : 
: 149 1519 1 An IOSTAT value. : 
s 199 1520 1! : 
; 151 1521 1 | SIDE EFFECTS: ‘ 
3 Ve 1522 1! : 
s 6933 1523 1! File is o ng * hy ) ++ prey eve to ENDFILE : 
3; «6154 1524 1! SIGNAL_ST $_ENDFILERR if ENDFILE ignored for this type file F 
3; 4399 1525 1! SIGNAL ~ST0Ps FORS. TENDFICERR if RMS $PUT error. | : 
; 156 1526 1! : 
» Tor 1362 1 i- | : 
3; 138 1528 1 ; 
; i 1368 § BEGIN : 
; 160 1530 : 
3 161 1531 2 GLOBAL_REGISTER : 
3 16¢ 1336 CCB = 11: REF BLOCKC, BYTE); | ; 
; 16 153 : 
3; 164 1534 CAL | : 
; 165 1535 L_UNWIND_ ACTION: VOLATILE, | : 
; 166 1536 L-ERR_EQC_P ay green es : 
: 167 1537 t “EOF CHAR: : 
: 168 1238 : 
; 169 1539 BUILTIN : 
; 170 1540 ACTUAL COUNT; : 


(ee 
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ENABLE 
FORSSIOSTAT_HND (L_UNWIND_ACTION, L_ERR_EQL_PRES); 


re 
Determine if ERR= is present. 


PIII 
re ee 
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dl ACTUALCOUNT () GTR 1 


ELgEenERRAEGLPRES = -ERR_EQL 
L_ERR_EQL_PRES = 0; 


14 
: Action on error is not to pop a LUB. | 


L_UNWIND_ACTION = FORSK_UNWINDNOP; 


'4 
: Allocate a LUB/ISB/RAB for this logical unit. 
ON return, CCB points to the current control block. | 
FORS$CB_PUSH (.UNIT, LUBSK_LUN_MIN); 


t+ 
UNwind action is now to pop the LUB. 


L_UNWIND_ACTION = FORSK_UNWINDPOP; 


+ 

! Check various file attributes. File must be: 
! Sequential organization 

! Sequential access 

! Variable length records : 

Must have segmented records if unformatteed 


-CCBCLUBSV_DIRECT] OR 
‘ UBSV"FIXED) OR 
(.CCBCLUBSV_UNFORMAT) AND .CCBCLUBSV_SEGMENTED] EQL 06) 


_FORSSSIGNAL_STO (FORSK_ENDFILERR) | 


IF “SCCBELUBS NOTSEQORG] OR 


ELS 
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BEGIN 


'¢ 

! If the file is not open, default open it. 

! But do not specify w ether formatted or unformatted. 

! That will depend on the next 1/0 statement executed 

! so just set LUBSV_ENDFILOPN to be tested on every 1/0 statement. a 

! When set, it will be cleared and the remaining defaults will be specified. 
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1-006 14-Sep eat hi 99: ¥} 8; FORRTL.SRCJFORENDFIL. 8 2;1 (3) | 
; 228 1598 \- : 
; 9 1599 : 
; 0 1600 IF .CCBCLUBSV_OPENED] EQL 0 : 
: 1 1601 THEN ; 
: ¢ 1606 4 BEGIN | ; 
; 2 1605 4 FORSSOPEN_DEFLT ye et ACC ~fEa. | : 
: 4 1604 4 of K-TYP_NEW : 
3 3? 1605 4 OPENSKC| FOR-UNSS; | : 
; 6 1606 4 ppt ENDF ILOPN T; ; 
; S30 1607 ; END | : 
; 238 1608 3 
; $73 1609 '+ ; 
3 sit 1919 | een ey write a one byte control Z record to the file. ; 
3 see 1ol¢ | 3 
: 24 161 L_EOF CHAR = FORSK_CONTROL_7Z; : 
> 244 1614 CCBCRABSL_RBFJ = L_EOF_CHAR; . 
> 245 1615 ; CCBCRAB$W_RSZJ = 1; ; 
> 246 1616 : 
: 247 1617 4 IF NOT S$PUT (RAB = .CCB) : 
: 248 1618 3 ; 
; 249 1619 3 FORSSSIGNAL_STO (FORSK_ENDFILERR); : 
: 250 1620 3 ; 
; 251 1621 3 1+ é : 
3 gee 1622 3 ! Increment the logical record number for backspace. | > 
z gos 1623 3 != : 
> 254 1624 3 | ; 
, gee 1625 3 CCBCLUB$L_LOG_RECNOJ = .CCBCLUB$L_LOG_RECNO] + 1; | ’ 
; 256 1626 3 3 
s gor 1627 2 END; | 3 
; 258 1628 2 ; 
; 259 1629 2 '¢ $ 
; 260 1630 2 i Return the 1/0 system to its former state. | : 
: 261 1631 2 ie 3 
: 262 1632 2 ; 
; 263 1633 2 FORS$CB_POP (); | ; 
> 264 1634 2 F 
3; 265 1635 2 RETURN 0; ! Success IOSTAT value : 
; 266 1636 1 END; : 
-TITLE FORSENDFILE | : 
-IDENT \1-006\ : 
-EXTRN FORSSIOSTA ; 
-EXTRN FORSSCB PUSAY NPORSSCB_ POP : 
-EXTRN FORSSSIGNAL_$TO : 
EXTRN FORSSOPEN ADEFLT : 
EXTRN SYS$PUT : 
-PSECT _FORSCODE,NOWRT, SHR, PIC,2 : 
080C 00000 ENTRY FORSENDFILE, Save gfe RS-ni1 > 1484 3 
53 000000006 00 3) BO RRs ty As ee} aes 510, R3 ; $ 
5€ 0c ¢ 44 SUBL : : 

04 AE 7C 0000C CLRO t cea EQL_PRES > 1529. 

6D 0081 CF DE OO00F MOVAL $, ‘ 


Page 
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180 bytes, Routine Base: 


; Routine Size: 


C 4 
FORSENDF ILE 16-Sep-1984 00:19:25 VAX-11 Bliss=-32 V4.0-742 Page 7 
1-006 14-Sep-1984 0:49:83 CFORRTL.SRCJFORENDFIL. 832;1 . (3) 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _FORSCODE 180 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Biles en eo SE ee Rae 2 - Symbols ------- - Pages Processing 
; File Total Loaded Percent Mapped Time | 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 ? 0 581 00:01.1 | 
: COMMAND QUALIFIERS | 
; SE LSPS SESE FELD SE TEAL, PT IAL ER D/O TRACE SS LEAL TSE ORE NOY EL SOBER IS FOREN EF MSRC$:FORENDF IL/UPDATE=(ENH$: FORENDF IL | 


Size: 180 509 e + 0 data bytes | 
Run Time 00:12.9 
Elapsed Tine: 00:47.2 | 


Lines/CPU Min: 7652 
Lexemes/CPU-Min: 39646 
poneey Used: 168 pages 
Compiiation Complete 
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